home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / CUCD / Programming / EasyPLUGINs / examples / popmisc_demo.e < prev    next >
Encoding:
Text File  |  1998-02-19  |  2.0 KB  |  58 lines
  1.  
  2. /*
  3.  
  4. */
  5.  
  6. OPT PREPROCESS, OSVERSION=37
  7.  
  8. MODULE 'tools/easygui', 'easyplugins/popmisc',
  9.        'utility', 'utility/tagitem'
  10.  
  11. DEF poptask:PTR TO popmisc_plugin,
  12.     popport:PTR TO popmisc_plugin,
  13.     poplib:PTR TO popmisc_plugin,
  14.     popdevice:PTR TO popmisc_plugin,
  15.     popresource:PTR TO popmisc_plugin,
  16.     popmemnode:PTR TO popmisc_plugin
  17.  
  18. PROC main() HANDLE
  19.  
  20.     IF (utilitybase:=OpenLibrary('utility.library', 37))=NIL THEN Raise("utlb")
  21.  
  22.     NEW poptask.popmisc(),
  23.         popport.popmisc([PLA_PopMisc_ListType, PLV_PopMisc_PortsList,
  24.                          TAG_DONE]),
  25.         poplib.popmisc([PLA_PopMisc_ListType, PLV_PopMisc_LibrariesList,
  26.                          TAG_DONE]),
  27.         popdevice.popmisc([PLA_PopMisc_ListType, PLV_PopMisc_DevicesList,
  28.                            TAG_DONE]),
  29.         popresource.popmisc([PLA_PopMisc_ListType, PLV_PopMisc_ResourcesList,
  30.                            TAG_DONE]),
  31.         popmemnode.popmisc([PLA_PopMisc_ListType, PLV_PopMisc_MemNodesList,
  32.                            TAG_DONE])
  33.  
  34.     easyguiA('popmisc_plugin example', [COLS,
  35.                                            [ROWS,
  36.                                                [PLUGIN, {dummy}, poptask, TRUE],
  37.                                                [PLUGIN, {dummy}, popport, TRUE],
  38.                                                [PLUGIN, {dummy}, poplib, TRUE]                                               
  39.                                            ],
  40.                                            [ROWS,
  41.                                                [PLUGIN, {dummy}, popdevice, TRUE],
  42.                                                [PLUGIN, {dummy}, popresource, TRUE],
  43.                                                [PLUGIN, {dummy}, popmemnode, TRUE]
  44.                                            ]
  45.                                        ])
  46.  
  47. EXCEPT DO
  48.  
  49.     END poptask, popport, poplib, popdevice, popresource, popmemnode
  50.  
  51.     IF utilitybase THEN CloseLibrary(utilitybase)
  52.  
  53. ENDPROC
  54.  
  55. PROC dummy() IS EMPTY
  56.  
  57.  
  58.